﻿Imports System.Reflection

Public Class clsUtil
    Public Function format_fullname_facebook(ByVal fullname As String)
        Dim pos As Integer
        pos = InStr(fullname, "(", CompareMethod.Text)
        If (pos > 0) Then
            fullname = Mid(fullname, 1, pos - 1)
        End If
        Return Trim(fullname)
    End Function

    Public Function remove_about_blank(ByVal href As String)
        href = Replace(href, "about:blank", "")
        href = Replace(href, "about:", "")
        Return href
    End Function
End Class
